home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
os2
/
rxbas221.zip
/
RXIXREAD.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-12-10
|
729b
|
37 lines
/* rexx */
signal on syntax
say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
parse arg noname noix
say rexxbase_init()
say rexxbase_opendbf("noname", noix)
c = 0
r = rexxbase_findrecord("noname","-1")
do while(r = '')
do j = 1 to noname.fieldcount
k = "t = noname."noname.fieldname.j".type"
interpret k
k = "say noname.fieldname.j "
k = k || " is noname." || noname.fieldname.j
interpret k
end /* do */
r = rexxbase_readdbf("noname")
c = c + 1
end
say r ' @ ' c
say rexxbase_closedbf("noname")
return
syntax:
errormsg = 'rexx error ' rc ' in line ' sigl ':' errortext(rc)
say errormsg
say sourceline(sigl)
exit